Secciones

Referencias

International aid may take the form of multilateral aid – provided through international bodies such as the UN, or NGOs such as Oxfam – or bilateral aid, which operates on a government-to-government basis. There is considerable debate about whether international aid works, in the sense of reducing poverty and stimulating development.

However, the effectiveness of aid is often diluted by corruption. Aid is invariably channeled through the governments of recipient countries, in which power is often concentrated in the hands of a few politicians and bureaucrats, and the mechanisms of accountability are, at best, poorly developed. This tends to benefit corrupt leaders and elites rather than the people, projects and programs for which it was intended.

Watts, Carl. (2014). Re: Does foreign aid help the developing countries towards development?. Retrieved from: https://www.researchgate.net/post/Does_foreign_aid_help_the_developing_countries_towards_development/5322005ed039b1e7648b459c/citation/download.

The hypothesis that foreign aid can promote growth in developing countries was explored, using panel data series for foreign aid, while accounting for regional differences in Asian, African, Latin American, and the Caribbean countries as well as the differences in income levels, the results of this study also indicate that foreign aid has mixed effects on economic growth in developing countries.

Ekanayake, E. & Chatrna, Dasha. (2010). The effect of foreign aid on economic growth in developing countries. Journal of International Business and Cultural Studies. 3.

This study examines the relationships between foreign aid, institutional structure, and economic performance for 80 countries in Europe, America, Africa, and Asia. It is found that official development assistance and the quality of institutional structure in the sample countries affect economic growth positively.

Hayaloğlu, Pınar. (2023). Foreign Aid, Institutions, and Economic Performance in Developing Countries. Eskişehir Osmangazi Üniversitesi İktisadi ve İdari Bilimler Dergisi. 18. 748-765. 10.17153/oguiibf.1277348.

Manual para replicar

Cargando Librerias

Algunas librerias y paquetes usados para obtener y descargar los datos

library(tidyverse) # manejo de dataframes
library(reshape2)  # para tranfromar data de long a wide
library(WDI)       # libreria para acceder a metadata de banco mundial
library(readxl)    # leer archivos de excel
library(readr)     # leer archivos csv
library(visdat)    # visualizacion de datos como graficos
library(plotly)    # graficos
library(purrr)     # funcion map
library(plm)       # modelos lineales para datos panel
library(car)       # test y utilidades para modelos
library(htmltools) # para imprimir graficos en html

Obtener datos

Datos para paises bajos ingresos sean utilizados, segun clasificación del banco mundial, hay 26 paises de bajos ingresos y 51 de ingresos medios bajos

country_class <- read_excel("CLASS.xlsx")

country_class %>%
  filter(!is.na(Region), !is.na(`Income group`)) %>%
  group_by(`Income group`) %>%
  summarise(countries = n()) %>%
  arrange(factor(`Income group`, levels = c('High income', 'Upper middle income', 'Lower middle income', 'Low income')))

Listado de paises a analisar:

my_countries <- country_class %>%
  filter(!is.na(Region), `Income group` %in% c('Low income', 'Lower middle income')) %>%
  select(Code)
my_countries %>% merge(country_class) %>% select(Code, Economy)

Hacer la respectiva asociacion de nombres iso3c e iso2c

my_countries$iso2c <- WDI_data$country %>%
  filter(iso3c %in% my_countries$Code) %>%
  .$iso2c
my_countries

Datos del banco mundial (para ODA y los indices de gobernanza) y el Human Development Reports API son descargados desde scripts de Python. Son almacenados en archivos CSV y luego son cargados aqui:

cargar HDI

datos_HDI <- read_csv("datos_python_HDI.csv", col_names = c('Code', 'iso2c', 'indicator', 'year', 'value'), 
                      col_types = list(col_character(), col_character(), col_character(), col_double(), col_double()))

hdi_indicators <- datos_HDI %>% distinct(indicator) %>% .$indicator

cargar ODA, GDP, POP.GROW

oda_indicators <- c(
'DT_ODA_ALLD_CD',
'DT_ODA_ALLD_KD',
'DT_ODA_OATL_CD',
'DT_ODA_OATL_KD',
'DT_ODA_ODAT_CD',
'DT_ODA_ODAT_GI_ZS',
'DT_ODA_ODAT_GN_ZS',
'DT_ODA_ODAT_KD',
'DT_ODA_ODAT_MP_ZS',
'DT_ODA_ODAT_PC_ZS',
'DT_ODA_ODAT_XP_ZS'
)
gob_indicators <- c(
'CC_EST',
'CC_NO_SRC',
'CC_PER_RNK',
'CC_PER_RNK_LOWER',
'CC_PER_RNK_UPPER',
'CC_STD_ERR',
'GE_EST',
'GE_NO_SRC',
'GE_PER_RNK',
'GE_PER_RNK_LOWER',
'GE_PER_RNK_UPPER',
'GE_STD_ERR',
'PV_EST',
'PV_NO_SRC',
'PV_PER_RNK',
'PV_PER_RNK_LOWER',
'PV_PER_RNK_UPPER',
'PV_STD_ERR',
'RQ_EST',
'RQ_NO_SRC',
'RQ_PER_RNK',
'RQ_PER_RNK_LOWER',
'RQ_PER_RNK_UPPER',
'RQ_STD_ERR',
'RL_EST',
'RL_NO_SRC',
'RL_PER_RNK',
'RL_PER_RNK_LOWER',
'RL_PER_RNK_UPPER',
'RL_STD_ERR',
'VA_EST',
'VA_NO_SRC',
'VA_PER_RNK',
'VA_PER_RNK_LOWER',
'VA_PER_RNK_UPPER',
'VA_STD_ERR'
)
gdp_indicators <- c(
'NY_ADJ_NNTY_PC_CD',
'NY_ADJ_NNTY_PC_KD',
'NY_ADJ_NNTY_PC_KD_ZG',
'NY_GDP_PCAP_CN',
'NY_GDP_PCAP_KN',
'NY_GDP_PCAP_CD',
'NY_GDP_PCAP_KD',
'NY_GDP_MKTP_KD_ZG',
'NY_GDP_DEFL_ZS_AD',
'NY_GDP_DEFL_ZS',
'NY_GDP_MKTP_CD',
'NY_GDP_MKTP_CN',
'NY_GDP_MKTP_KN',
'NY_GDP_MKTP_KD',
'NY_GDP_PCAP_KD_ZG',
'NY_GDP_PCAP_PP_KD',
'NY_GDP_PCAP_PP_CD',
'SL_GDP_PCAP_EM_KD',
'SP_POP_GROW'
)

datos_WB <- data.frame(indicator = character(), iso2c = character(), year = double(), value = double())

suppressWarnings(
  for (indicator in c(oda_indicators, gob_indicators, gdp_indicators)) {
    datos_WB <- rbind(datos_WB, read_csv(paste("datos_python", indicator, ".csv", sep =''), 
                                           col_names = c('indicator', 'iso2c', 'year', 'value'),
                                           col_types = list(col_character(), col_character(), col_double(), col_double())))
  }
)

cargar POVERTY

Poverty <- read_excel("GlobalExtremePovertyDollaraDay_Compact.xlsx", sheet = "Data Long Format")

names(Poverty) <- c("ccode", "country", "year", "value")

Poverty[Poverty=="Cape Verde"] <- "Cabo Verde"
Poverty[Poverty=="Congo"] <- "Congo, Rep."
Poverty[Poverty=="Egypt"] <- "Egypt, Arab Rep."
Poverty[Poverty=="Iran"] <- "Iran, Islamic Rep."
Poverty[Poverty=="Kyrgyzstan"] <- "Kyrgyz Republic"
Poverty[Poverty=="Laos"] <- "Lao PDR"
Poverty[Poverty=="Macedonia"] <- "North Macedonia"
Poverty[Poverty=="Russia"] <- "Russian Federation"
Poverty[Poverty=="Slovakia"] <- "Slovak Republic"
Poverty[Poverty=="South Korea"] <- "Korea, Rep."
Poverty[Poverty=="Swaziland"] <- "Eswatini"
Poverty[Poverty=="Syria"] <- "Syrian Arab Republic"
Poverty[Poverty=="The Gambia"] <- "Gambia, The"
Poverty[Poverty=="Turkey"] <- "Turkiye"
Poverty[Poverty=="Venezuela"] <- "Venezuela, RB"
Poverty[Poverty=="Yemen"] <- "Yemen, Rep."

Poverty <- Poverty %>%
  filter(year > 1994) %>%
  merge(WDI_data$country, all.x = TRUE) %>%
  mutate(indicator = 'POV') %>%
  merge(my_countries) %>%
  select(indicator, iso2c, year, value)

cargar Political Civil Liberties

PC_LIB <- read_csv("political-civil-liberties-index.csv")
Rows: 33643 Columns: 4── Column specification ──────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (2): Entity, Code
dbl (2): year, value
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
PC_LIB <- PC_LIB %>%
  filter(year > 1994, !is.na(Code)) %>%
  merge(my_countries) %>%
  mutate(indicator = 'POL.CIV.LIB') %>%
  select(indicator, iso2c, year, value)

Manipulacion de Datos

Transformar datos a la estructura wide

datos_paper <- rbind(datos_WB, datos_HDI %>% select(indicator, iso2c, year, value), Poverty, PC_LIB) %>%
  pivot_wider(names_from = indicator, values_from = value)

Promedio de Indices de Gobernanza

datos_paper <- datos_paper %>% mutate(GOV =  (CC.EST + GE.EST + PV.EST + RQ.EST + RL.EST + VA.EST) / 6)

Operador Diferencia

datos_paper <- datos_paper %>% arrange(iso2c, year) %>% 
        mutate(hdi_diff = case_when(iso2c == dplyr::lag(iso2c) ~ hdi - dplyr::lag(hdi), TRUE ~ NA_real_), 
               NY.GDP.PCAP.CD_diff = case_when(iso2c == dplyr::lag(iso2c) ~ NY.GDP.PCAP.CD - dplyr::lag(NY.GDP.PCAP.CD), TRUE ~ NA_real_),
               DT.ODA.ALLD.CD_diff = case_when(iso2c == dplyr::lag(iso2c) ~ DT.ODA.ALLD.CD - dplyr::lag(DT.ODA.ALLD.CD), TRUE ~ NA_real_),
               DT.ODA.ODAT.PC.ZS_diff = case_when(iso2c == dplyr::lag(iso2c) ~ DT.ODA.ODAT.PC.ZS - dplyr::lag(DT.ODA.ODAT.PC.ZS), TRUE ~ NA_real_),
               GOV_diff = case_when(iso2c == dplyr::lag(iso2c) ~ GOV - dplyr::lag(GOV), TRUE ~ NA_real_),
               POV_diff = case_when(iso2c == dplyr::lag(iso2c) ~ POV - dplyr::lag(POV), TRUE ~ NA_real_))

Clasificaciones dicotomicas

datos_paper <- datos_paper %>% mutate(GOV_GOOD = case_when(GOV >= 0 ~ 1, TRUE ~ 0))
plot_ly(data = datos_paper %>% filter(!is.na(GOV)), y = ~ GOV, type = 'scatter', mode = 'markers') %>%
  layout(title = 'Indice promedio de gobernanza', xaxis = list(title = 'Registros'))

datos_paper <- datos_paper %>% mutate(POL.CIV.LIB_GOOD = case_when(POL.CIV.LIB >= 0.5 ~ 1, TRUE ~ 0))
plot_ly(data = datos_paper %>% filter(!is.na(POL.CIV.LIB)), y = ~ POL.CIV.LIB, type = 'scatter', mode = 'markers') %>%
  layout(title = 'Indice libertades politicas y civiles', xaxis = list(title = 'Registros'))

Variables logaritmo

datos_paper <- datos_paper %>% mutate(DT.ODA.ALLD.CD_LOG = log(DT.ODA.ALLD.CD))
Warning: NaNs produced

Variables cuadradas

datos_paper <- datos_paper %>% mutate(DT.ODA.ODAT.PC.ZS_2 = DT.ODA.ODAT.PC.ZS ^ 2,
                                      DT.ODA.ALLD.CD_2 = DT.ODA.ALLD.CD ^ 2,
                                      DT.ODA.ALLD.CD_LOG_2 = DT.ODA.ALLD.CD_LOG ^ 2,)

Visualizacion de Datos

ODA
vis_dat(datos_paper %>% select(all_of(gsub("_", ".", oda_indicators)))) 

  # DT.ODA.OATL.CD and DT.ODA.OATL.KD faltan
  # DT.ODA.ODAT.GI.ZS, DT.ODA.ODAT.GN.ZS, DT.ODA.ODAT.MP.ZS and DT.ODA.ODAT.XP.ZS tienen faltas
  # Un par de ocurrencias pais-año que faltan datos
GDP
vis_dat(datos_paper %>% select(NY.GDP.PCAP.CN, NY.GDP.PCAP.CD)) 

  # NY.GDP.PCAP.CN, NY.GDP.PCAP.CD, NY.GDP.MKTP.CD, NY.GDP.MKTP.CN son buenos candidatos para usar como variables, 
  # 'SY'falta PIB per Capita en 2022, 2023 sin datos algunos paises
GOV
vis_dat(datos_paper %>% arrange(year) %>% select(all_of(gsub("_", ".", gob_indicators)))) 

  # Datos del 2000 para atras tienen espacios faltantes 
HDI
vis_dat(datos_paper %>% select(all_of(hdi_indicators))) 

  # abr, co2_prod, le, le_f, le_m, mmr son las pocas categorias sin datos faltantes
  # hdi faltante en multiples ocaciones
POP.GROW
vis_dat(datos_paper %>% arrange(iso2c) %>% select(SP.POP.GROW)) 

  # ZW no tiene datos de crecimiento poblacional
POV
vis_dat(datos_paper %>% arrange(year, iso2c) %>% select(POV))


# 'AF', 'CD', 'CI', 'DJ', 'KH', 'LR', 'MR', 'PG', 'ST', 'TJ', 'UZ', 'VN', 'WS' no tienen datos de esta variable
# Porcentaje de personas por debajo de la linea de extrema pobreza (Dollar a day)
POLITICAL CIVIL LIBERTY
vis_dat(datos_paper %>% arrange(iso2c) %>% select(POL.CIV.LIB)) 

  # KI  MR  SD  WS  son paises sin datos para estos años

Modelos

Filtros para modelo

# variables de etiqueta
ve <- c('iso2c', 'year')
# variables depndientes
vd <- c('hdi')                
               # 'hdi', 'hdi_diff', 'NY.GDP.PCAP.CD', 'NY.GDP.PCAP.CD_diff', 'POV', 'POV_diff',

# variables independientes
vi <- c('DT.ODA.ODAT.PC.ZS') 
               # 'DT.ODA.ODAT.PC.ZS', 'DT.ODA.ALLD.CD', 'DT.ODA.ALLD.CD_diff', 'DT.ODA.ODAT.PC.ZS_diff',       
               # 'DT.ODA.ALLD.CD:LOG'

# variables de control
vc <- c('NY.GDP.PCAP.CD',
        'GOV',
        'SP.POP.GROW',
        'DT.ODA.ODAT.PC.ZS_2') 
               #  'SP.POP.GROW', 'CC.EST', 'GE.EST', 'PV.EST', 'RQ.EST', 'RL.EST', 'VA.EST', 'GOV', 'GOV_diff'
               #  'NY.GDP.PCAP.CD', 'POL.CIV.LIB', 'DT.ODA.ODAT.PC.ZS_2', 'DT.ODA.ALLD.CD_2', 'DT.ODA.ALLD.CD_LOG_2'

# variables interactivas
vint <- c('GOV_GOOD')    # 'GOV_GOOD', 'POL.CIV.LIB_GOOD'

# paises sin datos
delete_c <- c('SS', 'ZW', 'BT', 'ER', 'GW', 'KP', 'LB', 'NG', 'PS', 'SO', 'VU', 'FM', 'KI', 'TL', 'CV', 'SB', 'SY')
          #, 'KI',  'MR',   'SD',   'WS' Si se usa POL.CIV.LIB
          #, 'AF', 'CD', 'CI', 'DJ', 'KH', 'LR', 'MR', 'PG', 'ST', 'TJ', 'UZ', 'VN', 'WS' Si se usa POV
          #, 'LK', 'PH' Si se usa DT.ODA.ALLD.CD_LOG

# años sin datos
first_y <- 2002
last_y <- 2022 # 2018 si se usa POV

f <- paste(vd, '~', case_when(length(vint) > 0 ~ paste(vi, vint, sep = '*'), TRUE ~ vi), '+', paste(vc, collapse = ' + '))

Aplicar Filtros

datos_model <- datos_paper %>% 
  filter(!iso2c %in% delete_c, !year <  first_y, !year > last_y) %>%
  select(all_of(c(ve, vd, vi, vc, vint)))

datos_model
vis_dat(datos_model)

Relaciones

Se revisara las relaciones entre las variables graficamente

my_plot = list()

for (vd_ in vd) {
  for (vi_ in c(vi, vc)){
    fit <- lm(paste(vd_, '~', vi_) ,data = datos_model)
    my_plot[[paste(vd_,vi_)]] <- plot_ly(x = datos_model[[vi_]], 
                                         y = datos_model[[vd_]], 
                                         type = 'scatter', 
                                         mode = 'markers', 
                                         name = vi_) %>%
      add_lines(x = datos_model[[vi_]], fitted(fit), name = paste("trace", vi_))
  }
}

subplot(my_plot, nrows = 2, margin = 0.05)  %>% layout(title = vd)
NA

Correr modelos

model_ols <- lm(f, data=datos_model)
model_fe <- plm(f, data=datos_model, index = ve, model = "within")
model_re <- plm(f, data=datos_model, index = ve, model = "random")

Modelo OLS

print(f)
[1] "hdi ~ DT.ODA.ODAT.PC.ZS*GOV_GOOD + NY.GDP.PCAP.CD + GOV + SP.POP.GROW + DT.ODA.ODAT.PC.ZS_2"
summary(model_ols)

Call:
lm(formula = f, data = datos_model)

Residuals:
      Min        1Q    Median        3Q       Max 
-0.242596 -0.036234  0.002667  0.036458  0.273790 

Coefficients:
                             Estimate Std. Error t value Pr(>|t|)    
(Intercept)                 5.335e-01  8.157e-03  65.402  < 2e-16 ***
DT.ODA.ODAT.PC.ZS          -2.476e-04  6.635e-05  -3.732 0.000199 ***
GOV_GOOD                    7.539e-02  2.074e-02   3.636 0.000288 ***
NY.GDP.PCAP.CD              6.086e-05  2.108e-06  28.879  < 2e-16 ***
GOV                         2.404e-02  4.884e-03   4.923 9.67e-07 ***
SP.POP.GROW                -2.700e-02  2.082e-03 -12.970  < 2e-16 ***
DT.ODA.ODAT.PC.ZS_2         7.016e-07  2.139e-07   3.280 0.001068 ** 
DT.ODA.ODAT.PC.ZS:GOV_GOOD -3.665e-04  1.110e-04  -3.301 0.000991 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.06834 on 1252 degrees of freedom
Multiple R-squared:  0.5845,    Adjusted R-squared:  0.5822 
F-statistic: 251.6 on 7 and 1252 DF,  p-value: < 2.2e-16
residualPlots(model_ols)
                    Test stat Pr(>|Test stat|)    
DT.ODA.ODAT.PC.ZS      0.2716         0.786003    
GOV_GOOD               0.0034         0.997324    
NY.GDP.PCAP.CD        -9.8249        < 2.2e-16 ***
GOV                   -1.4463         0.148358    
SP.POP.GROW            5.0591        4.841e-07 ***
DT.ODA.ODAT.PC.ZS_2   -3.0343         0.002461 ** 
Tukey test            -9.1197        < 2.2e-16 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

plot(model_ols)

vif(model_ols)
         DT.ODA.ODAT.PC.ZS                   GOV_GOOD             NY.GDP.PCAP.CD                        GOV 
                  6.482080                   3.566314                   1.304431                   1.365915 
               SP.POP.GROW        DT.ODA.ODAT.PC.ZS_2 DT.ODA.ODAT.PC.ZS:GOV_GOOD 
                  1.147912                  16.752242                  12.163939 

Modelo Fixed Effects

print(f)
[1] "hdi ~ DT.ODA.ODAT.PC.ZS*GOV_GOOD + NY.GDP.PCAP.CD + GOV + SP.POP.GROW + DT.ODA.ODAT.PC.ZS_2"
summary(model_fe)
Oneway (individual) effect Within Model

Call:
plm(formula = f, data = datos_model, model = "within", index = ve)

Balanced Panel: n = 60, T = 21, N = 1260

Residuals:
      Min.    1st Qu.     Median    3rd Qu.       Max. 
-0.0953410 -0.0179084  0.0010104  0.0185345  0.1224959 

Coefficients:
                              Estimate  Std. Error t-value  Pr(>|t|)    
DT.ODA.ODAT.PC.ZS           2.5096e-04  4.5507e-05  5.5147 4.279e-08 ***
GOV_GOOD                    2.6196e-03  1.0763e-02  0.2434  0.807739    
NY.GDP.PCAP.CD              4.2953e-05  1.5323e-06 28.0315 < 2.2e-16 ***
GOV                         2.0516e-02  5.1705e-03  3.9680 7.680e-05 ***
SP.POP.GROW                -4.2837e-03  1.5386e-03 -2.7841  0.005452 ** 
DT.ODA.ODAT.PC.ZS_2        -5.0963e-07  1.1826e-07 -4.3093 1.773e-05 ***
DT.ODA.ODAT.PC.ZS:GOV_GOOD  7.7792e-05  7.2641e-05  1.0709  0.284425    
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Total Sum of Squares:    1.7772
Residual Sum of Squares: 0.96099
R-Squared:      0.45927
Adj. R-Squared: 0.42935
F-statistic: 144.751 on 7 and 1193 DF, p-value: < 2.22e-16
#summary(lm(paste(f, '+ iso2c'), data=datos_model))

Modelo Random Effects

print(f)
[1] "hdi ~ DT.ODA.ODAT.PC.ZS*GOV_GOOD + NY.GDP.PCAP.CD + GOV + SP.POP.GROW + DT.ODA.ODAT.PC.ZS_2"
summary(model_re)
Oneway (individual) effect Random Effect Model 
   (Swamy-Arora's transformation)

Call:
plm(formula = f, data = datos_model, model = "random", index = ve)

Balanced Panel: n = 60, T = 21, N = 1260

Effects:
                    var   std.dev share
idiosyncratic 0.0008055 0.0283817 0.175
individual    0.0038072 0.0617027 0.825
theta: 0.9001

Residuals:
      Min.    1st Qu.     Median    3rd Qu.       Max. 
-0.0992346 -0.0169620  0.0027149  0.0180997  0.1189000 

Coefficients:
                              Estimate  Std. Error z-value  Pr(>|z|)    
(Intercept)                 4.8502e-01  1.0217e-02 47.4713 < 2.2e-16 ***
DT.ODA.ODAT.PC.ZS           2.3327e-04  4.5171e-05  5.1642 2.414e-07 ***
GOV_GOOD                    3.9451e-03  1.0822e-02  0.3645 0.7154602    
NY.GDP.PCAP.CD              4.3774e-05  1.5279e-06 28.6489 < 2.2e-16 ***
GOV                         2.2027e-02  5.0463e-03  4.3649 1.272e-05 ***
SP.POP.GROW                -5.2621e-03  1.5325e-03 -3.4338 0.0005953 ***
DT.ODA.ODAT.PC.ZS_2        -4.7767e-07  1.1791e-07 -4.0510 5.099e-05 ***
DT.ODA.ODAT.PC.ZS:GOV_GOOD  7.0208e-05  7.2070e-05  0.9742 0.3299756    
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Total Sum of Squares:    1.8998
Residual Sum of Squares: 1.0258
R-Squared:      0.46004
Adj. R-Squared: 0.45702
Chisq: 1066.7 on 7 DF, p-value: < 2.22e-16

Hausman Test

print(f)
[1] "hdi ~ DT.ODA.ODAT.PC.ZS*GOV_GOOD + NY.GDP.PCAP.CD + GOV + SP.POP.GROW + DT.ODA.ODAT.PC.ZS_2"
phtest(model_fe, model_re)

    Hausman Test

data:  f
chisq = 43.497, df = 7, p-value = 2.673e-07
alternative hypothesis: one model is inconsistent

Guardar Data

save(f, delete_c, first_y, last_y, my_plot, model_ols, model_fe, model_re, file = "HID_ODAPCGOVGOOD_GDPPC_GOV_GROW.RData")

Cargar Data

LS0tDQp0aXRsZTogIk9mZmljaWFsIERldmVsb3BtZW50IEFzc2lzdGFuY2UgYW5kIEluc3RpdHV0aW9uYWwgUXVhbGl0eSBvbiBVbmRldmVsb3BlZCBjb3VudHJpZXMiDQphdXRob3I6ICJPc2NhciBFZHVhcmRvIE1vcmFsZXMgQ8OhcmRlbmFzIg0KZGF0ZTogIjIwMjQtMDgtMDUiDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6DQogICAgZGZfcHJpbnQ6IHBhZ2VkDQogIGh0bWxfbm90ZWJvb2s6IGRlZmF1bHQNCiAgcGRmX2RvY3VtZW50OiBkZWZhdWx0DQotLS0NCg0KIyBTZWNjaW9uZXMgey50YWJzZXQgLnRhYnNldC1mYWRlfQ0KDQojIyBSZWZlcmVuY2lhcw0KDQpJbnRlcm5hdGlvbmFsIGFpZCBtYXkgdGFrZSB0aGUgZm9ybSBvZiBtdWx0aWxhdGVyYWwgYWlkIC0tIHByb3ZpZGVkIHRocm91Z2ggaW50ZXJuYXRpb25hbCBib2RpZXMgc3VjaCBhcyB0aGUgVU4sIG9yIE5HT3Mgc3VjaCBhcyBPeGZhbSAtLSBvciBiaWxhdGVyYWwgYWlkLCB3aGljaCBvcGVyYXRlcyBvbiBhIGdvdmVybm1lbnQtdG8tZ292ZXJubWVudCBiYXNpcy4gVGhlcmUgaXMgY29uc2lkZXJhYmxlIGRlYmF0ZSBhYm91dCB3aGV0aGVyIGludGVybmF0aW9uYWwgYWlkIHdvcmtzLCBpbiB0aGUgc2Vuc2Ugb2YgcmVkdWNpbmcgcG92ZXJ0eSBhbmQgc3RpbXVsYXRpbmcgZGV2ZWxvcG1lbnQuDQoNCkhvd2V2ZXIsIHRoZSBlZmZlY3RpdmVuZXNzIG9mIGFpZCBpcyBvZnRlbiBkaWx1dGVkIGJ5IGNvcnJ1cHRpb24uIEFpZCBpcyBpbnZhcmlhYmx5IGNoYW5uZWxlZCB0aHJvdWdoIHRoZSBnb3Zlcm5tZW50cyBvZiByZWNpcGllbnQgY291bnRyaWVzLCBpbiB3aGljaCBwb3dlciBpcyBvZnRlbiBjb25jZW50cmF0ZWQgaW4gdGhlIGhhbmRzIG9mIGEgZmV3IHBvbGl0aWNpYW5zIGFuZCBidXJlYXVjcmF0cywgYW5kIHRoZSBtZWNoYW5pc21zIG9mIGFjY291bnRhYmlsaXR5IGFyZSwgYXQgYmVzdCwgcG9vcmx5IGRldmVsb3BlZC4gVGhpcyB0ZW5kcyB0byBiZW5lZml0IGNvcnJ1cHQgbGVhZGVycyBhbmQgZWxpdGVzIHJhdGhlciB0aGFuIHRoZSBwZW9wbGUsIHByb2plY3RzIGFuZCBwcm9ncmFtcyBmb3Igd2hpY2ggaXQgd2FzIGludGVuZGVkLg0KDQpfX1dhdHRzLCBDYXJsLiAoMjAxNCkuIFJlOiBEb2VzIGZvcmVpZ24gYWlkIGhlbHAgdGhlIGRldmVsb3BpbmcgY291bnRyaWVzIHRvd2FyZHMgZGV2ZWxvcG1lbnQ/LiBSZXRyaWV2ZWQgZnJvbTpfXyBodHRwczovL3d3dy5yZXNlYXJjaGdhdGUubmV0L3Bvc3QvRG9lc19mb3JlaWduX2FpZF9oZWxwX3RoZV9kZXZlbG9waW5nX2NvdW50cmllc190b3dhcmRzX2RldmVsb3BtZW50LzUzMjIwMDVlZDAzOWIxZTc2NDhiNDU5Yy9jaXRhdGlvbi9kb3dubG9hZC4NCg0KVGhlIGh5cG90aGVzaXMgdGhhdCBmb3JlaWduIGFpZCBjYW4gcHJvbW90ZSBncm93dGggaW4gZGV2ZWxvcGluZyBjb3VudHJpZXMgd2FzIGV4cGxvcmVkLCB1c2luZyBwYW5lbCBkYXRhIHNlcmllcyBmb3IgZm9yZWlnbiBhaWQsIHdoaWxlIGFjY291bnRpbmcgZm9yIHJlZ2lvbmFsIGRpZmZlcmVuY2VzIGluIEFzaWFuLCBBZnJpY2FuLCBMYXRpbiBBbWVyaWNhbiwgYW5kIHRoZSBDYXJpYmJlYW4gY291bnRyaWVzIGFzIHdlbGwgYXMgdGhlIGRpZmZlcmVuY2VzIGluIGluY29tZSBsZXZlbHMsIHRoZSByZXN1bHRzIG9mIHRoaXMgc3R1ZHkgYWxzbyBpbmRpY2F0ZSB0aGF0IGZvcmVpZ24gYWlkIGhhcyBtaXhlZCBlZmZlY3RzIG9uIGVjb25vbWljIGdyb3d0aCBpbiBkZXZlbG9waW5nIGNvdW50cmllcy4NCg0KX19Fa2FuYXlha2UsIEUuICYgQ2hhdHJuYSwgRGFzaGEuICgyMDEwKS4gVGhlIGVmZmVjdCBvZiBmb3JlaWduIGFpZCBvbiBlY29ub21pYyBncm93dGggaW4gZGV2ZWxvcGluZyBjb3VudHJpZXMuIEpvdXJuYWwgb2YgSW50ZXJuYXRpb25hbCBCdXNpbmVzcyBhbmQgQ3VsdHVyYWwgU3R1ZGllcy4gMy5fXw0KDQpUaGlzIHN0dWR5IGV4YW1pbmVzIHRoZSByZWxhdGlvbnNoaXBzIGJldHdlZW4gZm9yZWlnbiBhaWQsIGluc3RpdHV0aW9uYWwgc3RydWN0dXJlLCBhbmQgZWNvbm9taWMgcGVyZm9ybWFuY2UgZm9yIDgwIGNvdW50cmllcyBpbiBFdXJvcGUsIEFtZXJpY2EsIEFmcmljYSwgYW5kIEFzaWEuIEl0IGlzIGZvdW5kIHRoYXQgb2ZmaWNpYWwgZGV2ZWxvcG1lbnQgYXNzaXN0YW5jZSBhbmQgdGhlIHF1YWxpdHkgb2YgaW5zdGl0dXRpb25hbCBzdHJ1Y3R1cmUgaW4gdGhlIHNhbXBsZSBjb3VudHJpZXMgYWZmZWN0IGVjb25vbWljIGdyb3d0aCBwb3NpdGl2ZWx5Lg0KDQpfX0hheWFsb8SfbHUsIFDEsW5hci4gKDIwMjMpLiBGb3JlaWduIEFpZCwgSW5zdGl0dXRpb25zLCBhbmQgRWNvbm9taWMgUGVyZm9ybWFuY2UgaW4gRGV2ZWxvcGluZyBDb3VudHJpZXMuIEVza2nFn2VoaXIgT3NtYW5nYXppIMOcbml2ZXJzaXRlc2kgxLBrdGlzYWRpIHZlIMSwZGFyaSBCaWxpbWxlciBEZXJnaXNpLiAxOC4gNzQ4LTc2NS4gMTAuMTcxNTMvb2d1aWliZi4xMjc3MzQ4Ll9fDQoNCiMjIE1hbnVhbCBwYXJhIHJlcGxpY2FyDQoNCiMjIyBDYXJnYW5kbyBMaWJyZXJpYXMNCg0KQWxndW5hcyBsaWJyZXJpYXMgeSBwYXF1ZXRlcyB1c2Fkb3MgcGFyYSBvYnRlbmVyIHkgZGVzY2FyZ2FyIGxvcyBkYXRvcw0KDQpgYGB7cn0NCmxpYnJhcnkodGlkeXZlcnNlKSAjIG1hbmVqbyBkZSBkYXRhZnJhbWVzDQpsaWJyYXJ5KHJlc2hhcGUyKSAgIyBwYXJhIHRyYW5mcm9tYXIgZGF0YSBkZSBsb25nIGEgd2lkZQ0KbGlicmFyeShXREkpICAgICAgICMgbGlicmVyaWEgcGFyYSBhY2NlZGVyIGEgbWV0YWRhdGEgZGUgYmFuY28gbXVuZGlhbA0KbGlicmFyeShyZWFkeGwpICAgICMgbGVlciBhcmNoaXZvcyBkZSBleGNlbA0KbGlicmFyeShyZWFkcikgICAgICMgbGVlciBhcmNoaXZvcyBjc3YNCmxpYnJhcnkodmlzZGF0KSAgICAjIHZpc3VhbGl6YWNpb24gZGUgZGF0b3MgY29tbyBncmFmaWNvcw0KbGlicmFyeShwbG90bHkpICAgICMgZ3JhZmljb3MNCmxpYnJhcnkocHVycnIpICAgICAjIGZ1bmNpb24gbWFwDQpsaWJyYXJ5KHBsbSkgICAgICAgIyBtb2RlbG9zIGxpbmVhbGVzIHBhcmEgZGF0b3MgcGFuZWwNCmxpYnJhcnkoY2FyKSAgICAgICAjIHRlc3QgeSB1dGlsaWRhZGVzIHBhcmEgbW9kZWxvcw0KbGlicmFyeShodG1sdG9vbHMpICMgcGFyYSBpbXByaW1pciBncmFmaWNvcyBlbiBodG1sDQpgYGANCg0KIyMjIE9idGVuZXIgZGF0b3MNCg0KRGF0b3MgcGFyYSBwYWlzZXMgYmFqb3MgaW5ncmVzb3Mgc2VhbiB1dGlsaXphZG9zLCBzZWd1biBjbGFzaWZpY2FjacOzbiBkZWwgYmFuY28gbXVuZGlhbCwgaGF5IDI2IHBhaXNlcyBkZSBiYWpvcyBpbmdyZXNvcyB5IDUxIGRlIGluZ3Jlc29zIG1lZGlvcyBiYWpvcw0KDQpgYGB7cn0NCmNvdW50cnlfY2xhc3MgPC0gcmVhZF9leGNlbCgiQ0xBU1MueGxzeCIpDQoNCmNvdW50cnlfY2xhc3MgJT4lDQogIGZpbHRlcighaXMubmEoUmVnaW9uKSwgIWlzLm5hKGBJbmNvbWUgZ3JvdXBgKSkgJT4lDQogIGdyb3VwX2J5KGBJbmNvbWUgZ3JvdXBgKSAlPiUNCiAgc3VtbWFyaXNlKGNvdW50cmllcyA9IG4oKSkgJT4lDQogIGFycmFuZ2UoZmFjdG9yKGBJbmNvbWUgZ3JvdXBgLCBsZXZlbHMgPSBjKCdIaWdoIGluY29tZScsICdVcHBlciBtaWRkbGUgaW5jb21lJywgJ0xvd2VyIG1pZGRsZSBpbmNvbWUnLCAnTG93IGluY29tZScpKSkNCmBgYA0KDQpMaXN0YWRvIGRlIHBhaXNlcyBhIGFuYWxpc2FyOg0KDQpgYGB7cn0NCm15X2NvdW50cmllcyA8LSBjb3VudHJ5X2NsYXNzICU+JQ0KICBmaWx0ZXIoIWlzLm5hKFJlZ2lvbiksIGBJbmNvbWUgZ3JvdXBgICVpbiUgYygnTG93IGluY29tZScsICdMb3dlciBtaWRkbGUgaW5jb21lJykpICU+JQ0KICBzZWxlY3QoQ29kZSkNCm15X2NvdW50cmllcyAlPiUgbWVyZ2UoY291bnRyeV9jbGFzcykgJT4lIHNlbGVjdChDb2RlLCBFY29ub215KQ0KYGBgDQoNCkhhY2VyIGxhIHJlc3BlY3RpdmEgYXNvY2lhY2lvbiBkZSBub21icmVzIGlzbzNjIGUgaXNvMmMNCg0KYGBge3J9DQpteV9jb3VudHJpZXMkaXNvMmMgPC0gV0RJX2RhdGEkY291bnRyeSAlPiUNCiAgZmlsdGVyKGlzbzNjICVpbiUgbXlfY291bnRyaWVzJENvZGUpICU+JQ0KICAuJGlzbzJjDQpteV9jb3VudHJpZXMNCmBgYA0KDQpEYXRvcyBkZWwgYmFuY28gbXVuZGlhbCAocGFyYSBPREEgeSBsb3MgaW5kaWNlcyBkZSBnb2Jlcm5hbnphKSB5IGVsIEh1bWFuIERldmVsb3BtZW50IFJlcG9ydHMgQVBJIHNvbiBkZXNjYXJnYWRvcyBkZXNkZSBzY3JpcHRzIGRlIFB5dGhvbi4gU29uIGFsbWFjZW5hZG9zIGVuIGFyY2hpdm9zIENTViB5IGx1ZWdvIHNvbiBjYXJnYWRvcyBhcXVpOg0KDQojIyMgY2FyZ2FyIEhESQ0KDQpgYGB7cn0NCmRhdG9zX0hESSA8LSByZWFkX2NzdigiZGF0b3NfcHl0aG9uX0hESS5jc3YiLCBjb2xfbmFtZXMgPSBjKCdDb2RlJywgJ2lzbzJjJywgJ2luZGljYXRvcicsICd5ZWFyJywgJ3ZhbHVlJyksIA0KICAgICAgICAgICAgICAgICAgICAgIGNvbF90eXBlcyA9IGxpc3QoY29sX2NoYXJhY3RlcigpLCBjb2xfY2hhcmFjdGVyKCksIGNvbF9jaGFyYWN0ZXIoKSwgY29sX2RvdWJsZSgpLCBjb2xfZG91YmxlKCkpKQ0KDQpoZGlfaW5kaWNhdG9ycyA8LSBkYXRvc19IREkgJT4lIGRpc3RpbmN0KGluZGljYXRvcikgJT4lIC4kaW5kaWNhdG9yDQpgYGANCg0KIyMjIGNhcmdhciBPREEsIEdEUCwgUE9QLkdST1cNCg0KYGBge3J9DQpvZGFfaW5kaWNhdG9ycyA8LSBjKA0KJ0RUX09EQV9BTExEX0NEJywNCidEVF9PREFfQUxMRF9LRCcsDQonRFRfT0RBX09BVExfQ0QnLA0KJ0RUX09EQV9PQVRMX0tEJywNCidEVF9PREFfT0RBVF9DRCcsDQonRFRfT0RBX09EQVRfR0lfWlMnLA0KJ0RUX09EQV9PREFUX0dOX1pTJywNCidEVF9PREFfT0RBVF9LRCcsDQonRFRfT0RBX09EQVRfTVBfWlMnLA0KJ0RUX09EQV9PREFUX1BDX1pTJywNCidEVF9PREFfT0RBVF9YUF9aUycNCikNCmdvYl9pbmRpY2F0b3JzIDwtIGMoDQonQ0NfRVNUJywNCidDQ19OT19TUkMnLA0KJ0NDX1BFUl9STksnLA0KJ0NDX1BFUl9STktfTE9XRVInLA0KJ0NDX1BFUl9STktfVVBQRVInLA0KJ0NDX1NURF9FUlInLA0KJ0dFX0VTVCcsDQonR0VfTk9fU1JDJywNCidHRV9QRVJfUk5LJywNCidHRV9QRVJfUk5LX0xPV0VSJywNCidHRV9QRVJfUk5LX1VQUEVSJywNCidHRV9TVERfRVJSJywNCidQVl9FU1QnLA0KJ1BWX05PX1NSQycsDQonUFZfUEVSX1JOSycsDQonUFZfUEVSX1JOS19MT1dFUicsDQonUFZfUEVSX1JOS19VUFBFUicsDQonUFZfU1REX0VSUicsDQonUlFfRVNUJywNCidSUV9OT19TUkMnLA0KJ1JRX1BFUl9STksnLA0KJ1JRX1BFUl9STktfTE9XRVInLA0KJ1JRX1BFUl9STktfVVBQRVInLA0KJ1JRX1NURF9FUlInLA0KJ1JMX0VTVCcsDQonUkxfTk9fU1JDJywNCidSTF9QRVJfUk5LJywNCidSTF9QRVJfUk5LX0xPV0VSJywNCidSTF9QRVJfUk5LX1VQUEVSJywNCidSTF9TVERfRVJSJywNCidWQV9FU1QnLA0KJ1ZBX05PX1NSQycsDQonVkFfUEVSX1JOSycsDQonVkFfUEVSX1JOS19MT1dFUicsDQonVkFfUEVSX1JOS19VUFBFUicsDQonVkFfU1REX0VSUicNCikNCmdkcF9pbmRpY2F0b3JzIDwtIGMoDQonTllfQURKX05OVFlfUENfQ0QnLA0KJ05ZX0FESl9OTlRZX1BDX0tEJywNCidOWV9BREpfTk5UWV9QQ19LRF9aRycsDQonTllfR0RQX1BDQVBfQ04nLA0KJ05ZX0dEUF9QQ0FQX0tOJywNCidOWV9HRFBfUENBUF9DRCcsDQonTllfR0RQX1BDQVBfS0QnLA0KJ05ZX0dEUF9NS1RQX0tEX1pHJywNCidOWV9HRFBfREVGTF9aU19BRCcsDQonTllfR0RQX0RFRkxfWlMnLA0KJ05ZX0dEUF9NS1RQX0NEJywNCidOWV9HRFBfTUtUUF9DTicsDQonTllfR0RQX01LVFBfS04nLA0KJ05ZX0dEUF9NS1RQX0tEJywNCidOWV9HRFBfUENBUF9LRF9aRycsDQonTllfR0RQX1BDQVBfUFBfS0QnLA0KJ05ZX0dEUF9QQ0FQX1BQX0NEJywNCidTTF9HRFBfUENBUF9FTV9LRCcsDQonU1BfUE9QX0dST1cnDQopDQoNCmRhdG9zX1dCIDwtIGRhdGEuZnJhbWUoaW5kaWNhdG9yID0gY2hhcmFjdGVyKCksIGlzbzJjID0gY2hhcmFjdGVyKCksIHllYXIgPSBkb3VibGUoKSwgdmFsdWUgPSBkb3VibGUoKSkNCg0Kc3VwcHJlc3NXYXJuaW5ncygNCiAgZm9yIChpbmRpY2F0b3IgaW4gYyhvZGFfaW5kaWNhdG9ycywgZ29iX2luZGljYXRvcnMsIGdkcF9pbmRpY2F0b3JzKSkgew0KICAgIGRhdG9zX1dCIDwtIHJiaW5kKGRhdG9zX1dCLCByZWFkX2NzdihwYXN0ZSgiZGF0b3NfcHl0aG9uIiwgaW5kaWNhdG9yLCAiLmNzdiIsIHNlcCA9JycpLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2xfbmFtZXMgPSBjKCdpbmRpY2F0b3InLCAnaXNvMmMnLCAneWVhcicsICd2YWx1ZScpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbF90eXBlcyA9IGxpc3QoY29sX2NoYXJhY3RlcigpLCBjb2xfY2hhcmFjdGVyKCksIGNvbF9kb3VibGUoKSwgY29sX2RvdWJsZSgpKSkpDQogIH0NCikNCmBgYA0KDQojIyMgY2FyZ2FyIFBPVkVSVFkNCmBgYHtyfQ0KUG92ZXJ0eSA8LSByZWFkX2V4Y2VsKCJHbG9iYWxFeHRyZW1lUG92ZXJ0eURvbGxhcmFEYXlfQ29tcGFjdC54bHN4Iiwgc2hlZXQgPSAiRGF0YSBMb25nIEZvcm1hdCIpDQoNCm5hbWVzKFBvdmVydHkpIDwtIGMoImNjb2RlIiwgImNvdW50cnkiLCAieWVhciIsICJ2YWx1ZSIpDQoNClBvdmVydHlbUG92ZXJ0eT09IkNhcGUgVmVyZGUiXSA8LSAiQ2FibyBWZXJkZSINClBvdmVydHlbUG92ZXJ0eT09IkNvbmdvIl0gPC0gIkNvbmdvLCBSZXAuIg0KUG92ZXJ0eVtQb3ZlcnR5PT0iRWd5cHQiXSA8LSAiRWd5cHQsIEFyYWIgUmVwLiINClBvdmVydHlbUG92ZXJ0eT09IklyYW4iXSA8LSAiSXJhbiwgSXNsYW1pYyBSZXAuIg0KUG92ZXJ0eVtQb3ZlcnR5PT0iS3lyZ3l6c3RhbiJdIDwtICJLeXJneXogUmVwdWJsaWMiDQpQb3ZlcnR5W1BvdmVydHk9PSJMYW9zIl0gPC0gIkxhbyBQRFIiDQpQb3ZlcnR5W1BvdmVydHk9PSJNYWNlZG9uaWEiXSA8LSAiTm9ydGggTWFjZWRvbmlhIg0KUG92ZXJ0eVtQb3ZlcnR5PT0iUnVzc2lhIl0gPC0gIlJ1c3NpYW4gRmVkZXJhdGlvbiINClBvdmVydHlbUG92ZXJ0eT09IlNsb3Zha2lhIl0gPC0gIlNsb3ZhayBSZXB1YmxpYyINClBvdmVydHlbUG92ZXJ0eT09IlNvdXRoIEtvcmVhIl0gPC0gIktvcmVhLCBSZXAuIg0KUG92ZXJ0eVtQb3ZlcnR5PT0iU3dhemlsYW5kIl0gPC0gIkVzd2F0aW5pIg0KUG92ZXJ0eVtQb3ZlcnR5PT0iU3lyaWEiXSA8LSAiU3lyaWFuIEFyYWIgUmVwdWJsaWMiDQpQb3ZlcnR5W1BvdmVydHk9PSJUaGUgR2FtYmlhIl0gPC0gIkdhbWJpYSwgVGhlIg0KUG92ZXJ0eVtQb3ZlcnR5PT0iVHVya2V5Il0gPC0gIlR1cmtpeWUiDQpQb3ZlcnR5W1BvdmVydHk9PSJWZW5lenVlbGEiXSA8LSAiVmVuZXp1ZWxhLCBSQiINClBvdmVydHlbUG92ZXJ0eT09IlllbWVuIl0gPC0gIlllbWVuLCBSZXAuIg0KDQpQb3ZlcnR5IDwtIFBvdmVydHkgJT4lDQogIGZpbHRlcih5ZWFyID4gMTk5NCkgJT4lDQogIG1lcmdlKFdESV9kYXRhJGNvdW50cnksIGFsbC54ID0gVFJVRSkgJT4lDQogIG11dGF0ZShpbmRpY2F0b3IgPSAnUE9WJykgJT4lDQogIG1lcmdlKG15X2NvdW50cmllcykgJT4lDQogIHNlbGVjdChpbmRpY2F0b3IsIGlzbzJjLCB5ZWFyLCB2YWx1ZSkNCg0KYGBgDQoNCiMjIyBjYXJnYXIgUG9saXRpY2FsIENpdmlsIExpYmVydGllcw0KYGBge3J9DQpQQ19MSUIgPC0gcmVhZF9jc3YoInBvbGl0aWNhbC1jaXZpbC1saWJlcnRpZXMtaW5kZXguY3N2IikNCg0KUENfTElCIDwtIFBDX0xJQiAlPiUNCiAgZmlsdGVyKHllYXIgPiAxOTk0LCAhaXMubmEoQ29kZSkpICU+JQ0KICBtZXJnZShteV9jb3VudHJpZXMpICU+JQ0KICBtdXRhdGUoaW5kaWNhdG9yID0gJ1BPTC5DSVYuTElCJykgJT4lDQogIHNlbGVjdChpbmRpY2F0b3IsIGlzbzJjLCB5ZWFyLCB2YWx1ZSkNCmBgYA0KDQoNCiMjIyBNYW5pcHVsYWNpb24gZGUgRGF0b3MNCg0KIyMjIyBUcmFuc2Zvcm1hciBkYXRvcyBhIGxhIGVzdHJ1Y3R1cmEgd2lkZQ0KYGBge3J9DQpkYXRvc19wYXBlciA8LSByYmluZChkYXRvc19XQiwgZGF0b3NfSERJICU+JSBzZWxlY3QoaW5kaWNhdG9yLCBpc28yYywgeWVhciwgdmFsdWUpLCBQb3ZlcnR5LCBQQ19MSUIpICU+JQ0KICBwaXZvdF93aWRlcihuYW1lc19mcm9tID0gaW5kaWNhdG9yLCB2YWx1ZXNfZnJvbSA9IHZhbHVlKQ0KYGBgDQoNCiMjIyMgUHJvbWVkaW8gZGUgSW5kaWNlcyBkZSBHb2Jlcm5hbnphDQpgYGB7cn0NCmRhdG9zX3BhcGVyIDwtIGRhdG9zX3BhcGVyICU+JSBtdXRhdGUoR09WID0gIChDQy5FU1QgKyBHRS5FU1QgKyBQVi5FU1QgKyBSUS5FU1QgKyBSTC5FU1QgKyBWQS5FU1QpIC8gNikNCmBgYA0KDQojIyMjIE9wZXJhZG9yIERpZmVyZW5jaWENCg0KYGBge3J9DQpkYXRvc19wYXBlciA8LSBkYXRvc19wYXBlciAlPiUgYXJyYW5nZShpc28yYywgeWVhcikgJT4lIA0KICAgICAgICBtdXRhdGUoaGRpX2RpZmYgPSBjYXNlX3doZW4oaXNvMmMgPT0gZHBseXI6OmxhZyhpc28yYykgfiBoZGkgLSBkcGx5cjo6bGFnKGhkaSksIFRSVUUgfiBOQV9yZWFsXyksIA0KICAgICAgICAgICAgICAgTlkuR0RQLlBDQVAuQ0RfZGlmZiA9IGNhc2Vfd2hlbihpc28yYyA9PSBkcGx5cjo6bGFnKGlzbzJjKSB+IE5ZLkdEUC5QQ0FQLkNEIC0gZHBseXI6OmxhZyhOWS5HRFAuUENBUC5DRCksIFRSVUUgfiBOQV9yZWFsXyksDQogICAgICAgICAgICAgICBEVC5PREEuQUxMRC5DRF9kaWZmID0gY2FzZV93aGVuKGlzbzJjID09IGRwbHlyOjpsYWcoaXNvMmMpIH4gRFQuT0RBLkFMTEQuQ0QgLSBkcGx5cjo6bGFnKERULk9EQS5BTExELkNEKSwgVFJVRSB+IE5BX3JlYWxfKSwNCiAgICAgICAgICAgICAgIERULk9EQS5PREFULlBDLlpTX2RpZmYgPSBjYXNlX3doZW4oaXNvMmMgPT0gZHBseXI6OmxhZyhpc28yYykgfiBEVC5PREEuT0RBVC5QQy5aUyAtIGRwbHlyOjpsYWcoRFQuT0RBLk9EQVQuUEMuWlMpLCBUUlVFIH4gTkFfcmVhbF8pLA0KICAgICAgICAgICAgICAgR09WX2RpZmYgPSBjYXNlX3doZW4oaXNvMmMgPT0gZHBseXI6OmxhZyhpc28yYykgfiBHT1YgLSBkcGx5cjo6bGFnKEdPViksIFRSVUUgfiBOQV9yZWFsXyksDQogICAgICAgICAgICAgICBQT1ZfZGlmZiA9IGNhc2Vfd2hlbihpc28yYyA9PSBkcGx5cjo6bGFnKGlzbzJjKSB+IFBPViAtIGRwbHlyOjpsYWcoUE9WKSwgVFJVRSB+IE5BX3JlYWxfKSkNCmBgYA0KDQojIyMjIENsYXNpZmljYWNpb25lcyBkaWNvdG9taWNhcw0KYGBge3J9DQpkYXRvc19wYXBlciA8LSBkYXRvc19wYXBlciAlPiUgbXV0YXRlKEdPVl9HT09EID0gY2FzZV93aGVuKEdPViA+PSAwIH4gMSwgVFJVRSB+IDApKQ0KcGxvdF9seShkYXRhID0gZGF0b3NfcGFwZXIgJT4lIGZpbHRlcighaXMubmEoR09WKSksIHkgPSB+IEdPViwgdHlwZSA9ICdzY2F0dGVyJywgbW9kZSA9ICdtYXJrZXJzJykgJT4lDQogIGxheW91dCh0aXRsZSA9ICdJbmRpY2UgcHJvbWVkaW8gZGUgZ29iZXJuYW56YScsIHhheGlzID0gbGlzdCh0aXRsZSA9ICdSZWdpc3Ryb3MnKSkNCg0KZGF0b3NfcGFwZXIgPC0gZGF0b3NfcGFwZXIgJT4lIG11dGF0ZShQT0wuQ0lWLkxJQl9HT09EID0gY2FzZV93aGVuKFBPTC5DSVYuTElCID49IDAuNSB+IDEsIFRSVUUgfiAwKSkNCnBsb3RfbHkoZGF0YSA9IGRhdG9zX3BhcGVyICU+JSBmaWx0ZXIoIWlzLm5hKFBPTC5DSVYuTElCKSksIHkgPSB+IFBPTC5DSVYuTElCLCB0eXBlID0gJ3NjYXR0ZXInLCBtb2RlID0gJ21hcmtlcnMnKSAlPiUNCiAgbGF5b3V0KHRpdGxlID0gJ0luZGljZSBsaWJlcnRhZGVzIHBvbGl0aWNhcyB5IGNpdmlsZXMnLCB4YXhpcyA9IGxpc3QodGl0bGUgPSAnUmVnaXN0cm9zJykpDQpgYGANCg0KIyMjIyBWYXJpYWJsZXMgbG9nYXJpdG1vDQpgYGB7cn0NCmRhdG9zX3BhcGVyIDwtIGRhdG9zX3BhcGVyICU+JSBtdXRhdGUoRFQuT0RBLkFMTEQuQ0RfTE9HID0gbG9nKERULk9EQS5BTExELkNEKSkNCmBgYA0KDQojIyMjIFZhcmlhYmxlcyBjdWFkcmFkYXMNCmBgYHtyfQ0KZGF0b3NfcGFwZXIgPC0gZGF0b3NfcGFwZXIgJT4lIG11dGF0ZShEVC5PREEuT0RBVC5QQy5aU18yID0gRFQuT0RBLk9EQVQuUEMuWlMgXiAyLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBEVC5PREEuQUxMRC5DRF8yID0gRFQuT0RBLkFMTEQuQ0QgXiAyLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBEVC5PREEuQUxMRC5DRF9MT0dfMiA9IERULk9EQS5BTExELkNEX0xPRyBeIDIsKQ0KYGBgDQoNCg0KIyMjIyBWaXN1YWxpemFjaW9uIGRlIERhdG9zICB7LnRhYnNldCAudGFic2V0LWZhZGV9DQoNCiMjIyMjIE9EQQ0KDQpgYGB7cn0NCnZpc19kYXQoZGF0b3NfcGFwZXIgJT4lIHNlbGVjdChhbGxfb2YoZ3N1YigiXyIsICIuIiwgb2RhX2luZGljYXRvcnMpKSkpIA0KICAjIERULk9EQS5PQVRMLkNEIGFuZCBEVC5PREEuT0FUTC5LRCBmYWx0YW4NCiAgIyBEVC5PREEuT0RBVC5HSS5aUywgRFQuT0RBLk9EQVQuR04uWlMsIERULk9EQS5PREFULk1QLlpTIGFuZCBEVC5PREEuT0RBVC5YUC5aUyB0aWVuZW4gZmFsdGFzDQogICMgVW4gcGFyIGRlIG9jdXJyZW5jaWFzIHBhaXMtYcOxbyBxdWUgZmFsdGFuIGRhdG9zDQpgYGANCg0KIyMjIyMgR0RQDQoNCmBgYHtyfQ0KdmlzX2RhdChkYXRvc19wYXBlciAlPiUgc2VsZWN0KE5ZLkdEUC5QQ0FQLkNOLCBOWS5HRFAuUENBUC5DRCkpIA0KICAjIE5ZLkdEUC5QQ0FQLkNOLCBOWS5HRFAuUENBUC5DRCwgTlkuR0RQLk1LVFAuQ0QsIE5ZLkdEUC5NS1RQLkNOIHNvbiBidWVub3MgY2FuZGlkYXRvcyBwYXJhIHVzYXIgY29tbyB2YXJpYWJsZXMsIA0KICAjICdTWSdmYWx0YSBQSUIgcGVyIENhcGl0YSBlbiAyMDIyLCAyMDIzIHNpbiBkYXRvcyBhbGd1bm9zIHBhaXNlcw0KYGBgDQoNCiMjIyMjIEdPVg0KDQpgYGB7cn0NCnZpc19kYXQoZGF0b3NfcGFwZXIgJT4lIGFycmFuZ2UoeWVhcikgJT4lIHNlbGVjdChhbGxfb2YoZ3N1YigiXyIsICIuIiwgZ29iX2luZGljYXRvcnMpKSkpIA0KICAjIERhdG9zIGRlbCAyMDAwIHBhcmEgYXRyYXMgdGllbmVuIGVzcGFjaW9zIGZhbHRhbnRlcyANCmBgYA0KDQojIyMjIyBIREkNCg0KYGBge3J9DQp2aXNfZGF0KGRhdG9zX3BhcGVyICU+JSBzZWxlY3QoYWxsX29mKGhkaV9pbmRpY2F0b3JzKSkpIA0KICAjIGFiciwgY28yX3Byb2QsIGxlLCBsZV9mLCBsZV9tLCBtbXIgc29uIGxhcyBwb2NhcyBjYXRlZ29yaWFzIHNpbiBkYXRvcyBmYWx0YW50ZXMNCiAgIyBoZGkgZmFsdGFudGUgZW4gbXVsdGlwbGVzIG9jYWNpb25lcw0KYGBgDQoNCiMjIyMjIFBPUC5HUk9XDQoNCmBgYHtyfQ0KdmlzX2RhdChkYXRvc19wYXBlciAlPiUgYXJyYW5nZShpc28yYykgJT4lIHNlbGVjdChTUC5QT1AuR1JPVykpIA0KICAjIFpXIG5vIHRpZW5lIGRhdG9zIGRlIGNyZWNpbWllbnRvIHBvYmxhY2lvbmFsDQpgYGANCg0KIyMjIyMgUE9WIA0KDQpgYGB7cn0NCnZpc19kYXQoZGF0b3NfcGFwZXIgJT4lIGFycmFuZ2UoeWVhciwgaXNvMmMpICU+JSBzZWxlY3QoUE9WKSkNCg0KIyAnQUYnLCAnQ0QnLCAnQ0knLCAnREonLCAnS0gnLCAnTFInLCAnTVInLCAnUEcnLCAnU1QnLCAnVEonLCAnVVonLCAnVk4nLCAnV1MnIG5vIHRpZW5lbiBkYXRvcyBkZSBlc3RhIHZhcmlhYmxlDQojIFBvcmNlbnRhamUgZGUgcGVyc29uYXMgcG9yIGRlYmFqbyBkZSBsYSBsaW5lYSBkZSBleHRyZW1hIHBvYnJlemEgKERvbGxhciBhIGRheSkNCmBgYA0KDQojIyMjIyBQT0xJVElDQUwgQ0lWSUwgTElCRVJUWQ0KDQpgYGB7cn0NCnZpc19kYXQoZGF0b3NfcGFwZXIgJT4lIGFycmFuZ2UoaXNvMmMpICU+JSBzZWxlY3QoUE9MLkNJVi5MSUIpKSANCiAgIyBLSQlNUglTRAlXUyAgc29uIHBhaXNlcyBzaW4gZGF0b3MgcGFyYSBlc3RvcyBhw7Fvcw0KYGBgDQoNCiMjIE1vZGVsb3Mgey50YWJzZXQgLnRhYnNldC1mYWRlfQ0KDQojIyMgRmlsdHJvcyBwYXJhIG1vZGVsbw0KDQpgYGB7cn0NCiMgdmFyaWFibGVzIGRlIGV0aXF1ZXRhDQp2ZSA8LSBjKCdpc28yYycsICd5ZWFyJykNCiMgdmFyaWFibGVzIGRlcG5kaWVudGVzDQp2ZCA8LSBjKCdoZGknKSAgICAgICAgICAgICAgICANCiAgICAgICAgICAgICAgICMgJ2hkaScsICdoZGlfZGlmZicsICdOWS5HRFAuUENBUC5DRCcsICdOWS5HRFAuUENBUC5DRF9kaWZmJywgJ1BPVicsICdQT1ZfZGlmZicsDQoNCiMgdmFyaWFibGVzIGluZGVwZW5kaWVudGVzDQp2aSA8LSBjKCdEVC5PREEuT0RBVC5QQy5aUycpIA0KICAgICAgICAgICAgICAgIyAnRFQuT0RBLk9EQVQuUEMuWlMnLCAnRFQuT0RBLkFMTEQuQ0QnLCAnRFQuT0RBLkFMTEQuQ0RfZGlmZicsICdEVC5PREEuT0RBVC5QQy5aU19kaWZmJywgICAgICAgDQogICAgICAgICAgICAgICAjICdEVC5PREEuQUxMRC5DRDpMT0cnDQoNCiMgdmFyaWFibGVzIGRlIGNvbnRyb2wNCnZjIDwtIGMoJ05ZLkdEUC5QQ0FQLkNEJywNCiAgICAgICAgJ0dPVicsDQogICAgICAgICdTUC5QT1AuR1JPVycsDQogICAgICAgICdEVC5PREEuT0RBVC5QQy5aU18yJykgDQogICAgICAgICAgICAgICAjICAnU1AuUE9QLkdST1cnLCAnQ0MuRVNUJywgJ0dFLkVTVCcsICdQVi5FU1QnLCAnUlEuRVNUJywgJ1JMLkVTVCcsICdWQS5FU1QnLCAnR09WJywgJ0dPVl9kaWZmJw0KICAgICAgICAgICAgICAgIyAgJ05ZLkdEUC5QQ0FQLkNEJywgJ1BPTC5DSVYuTElCJywgJ0RULk9EQS5PREFULlBDLlpTXzInLCAnRFQuT0RBLkFMTEQuQ0RfMicsICdEVC5PREEuQUxMRC5DRF9MT0dfMicNCg0KIyB2YXJpYWJsZXMgaW50ZXJhY3RpdmFzDQp2aW50IDwtIGMoJ0dPVl9HT09EJykgICAgIyAnR09WX0dPT0QnLCAnUE9MLkNJVi5MSUJfR09PRCcNCg0KIyBwYWlzZXMgc2luIGRhdG9zDQpkZWxldGVfYyA8LSBjKCdTUycsICdaVycsICdCVCcsICdFUicsICdHVycsICdLUCcsICdMQicsICdORycsICdQUycsICdTTycsICdWVScsICdGTScsICdLSScsICdUTCcsICdDVicsICdTQicsICdTWScpDQogICAgICAgICAgIywgJ0tJJywJJ01SJywJJ1NEJywJJ1dTJyBTaSBzZSB1c2EgUE9MLkNJVi5MSUINCiAgICAgICAgICAjLCAnQUYnLCAnQ0QnLCAnQ0knLCAnREonLCAnS0gnLCAnTFInLCAnTVInLCAnUEcnLCAnU1QnLCAnVEonLCAnVVonLCAnVk4nLCAnV1MnIFNpIHNlIHVzYSBQT1YNCiAgICAgICAgICAjLCAnTEsnLCAnUEgnIFNpIHNlIHVzYSBEVC5PREEuQUxMRC5DRF9MT0cNCg0KIyBhw7FvcyBzaW4gZGF0b3MNCmZpcnN0X3kgPC0gMjAwMg0KbGFzdF95IDwtIDIwMjIgIyAyMDE4IHNpIHNlIHVzYSBQT1YNCg0KZiA8LSBwYXN0ZSh2ZCwgJ34nLCBjYXNlX3doZW4obGVuZ3RoKHZpbnQpID4gMCB+IHBhc3RlKHZpLCB2aW50LCBzZXAgPSAnKicpLCBUUlVFIH4gdmkpLCAnKycsIHBhc3RlKHZjLCBjb2xsYXBzZSA9ICcgKyAnKSkNCg0KYGBgDQoNCiMjIyBBcGxpY2FyIEZpbHRyb3MNCmBgYHtyfQ0KZGF0b3NfbW9kZWwgPC0gZGF0b3NfcGFwZXIgJT4lIA0KICBmaWx0ZXIoIWlzbzJjICVpbiUgZGVsZXRlX2MsICF5ZWFyIDwgIGZpcnN0X3ksICF5ZWFyID4gbGFzdF95KSAlPiUNCiAgc2VsZWN0KGFsbF9vZihjKHZlLCB2ZCwgdmksIHZjLCB2aW50KSkpDQoNCmRhdG9zX21vZGVsDQp2aXNfZGF0KGRhdG9zX21vZGVsKQ0KYGBgDQoNCiMjIyBSZWxhY2lvbmVzDQoNClNlIHJldmlzYXJhIGxhcyByZWxhY2lvbmVzIGVudHJlIGxhcyB2YXJpYWJsZXMgZ3JhZmljYW1lbnRlIA0KDQpgYGB7cn0NCm15X3Bsb3QgPSBsaXN0KCkNCg0KZm9yICh2ZF8gaW4gdmQpIHsNCiAgZm9yICh2aV8gaW4gYyh2aSwgdmMpKXsNCiAgICBmaXQgPC0gbG0ocGFzdGUodmRfLCAnficsIHZpXykgLGRhdGEgPSBkYXRvc19tb2RlbCkNCiAgICBteV9wbG90W1twYXN0ZSh2ZF8sdmlfKV1dIDwtIHBsb3RfbHkoeCA9IGRhdG9zX21vZGVsW1t2aV9dXSwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHkgPSBkYXRvc19tb2RlbFtbdmRfXV0sIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0eXBlID0gJ3NjYXR0ZXInLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbW9kZSA9ICdtYXJrZXJzJywgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5hbWUgPSB2aV8pICU+JQ0KICAgICAgYWRkX2xpbmVzKHggPSBkYXRvc19tb2RlbFtbdmlfXV0sIGZpdHRlZChmaXQpLCBuYW1lID0gcGFzdGUoInRyYWNlIiwgdmlfKSkNCiAgfQ0KfQ0KDQpzdWJwbG90KG15X3Bsb3QsIG5yb3dzID0gMiwgbWFyZ2luID0gMC4wNSkgICU+JSBsYXlvdXQodGl0bGUgPSB2ZCkNCg0KYGBgDQoNCiMjIyBDb3JyZXIgbW9kZWxvcw0KYGBge3J9DQptb2RlbF9vbHMgPC0gbG0oZiwgZGF0YT1kYXRvc19tb2RlbCkNCm1vZGVsX2ZlIDwtIHBsbShmLCBkYXRhPWRhdG9zX21vZGVsLCBpbmRleCA9IHZlLCBtb2RlbCA9ICJ3aXRoaW4iKQ0KbW9kZWxfcmUgPC0gcGxtKGYsIGRhdGE9ZGF0b3NfbW9kZWwsIGluZGV4ID0gdmUsIG1vZGVsID0gInJhbmRvbSIpDQpgYGANCg0KDQojIyMgTW9kZWxvIE9MUw0KDQpgYGB7cn0NCnByaW50KGYpDQpzdW1tYXJ5KG1vZGVsX29scykNCnJlc2lkdWFsUGxvdHMobW9kZWxfb2xzKQ0KcGxvdChtb2RlbF9vbHMpDQp2aWYobW9kZWxfb2xzKQ0KYGBgDQoNCiMjIyBNb2RlbG8gRml4ZWQgRWZmZWN0cw0KDQpgYGB7cn0NCnByaW50KGYpDQpzdW1tYXJ5KG1vZGVsX2ZlKQ0KI3N1bW1hcnkobG0ocGFzdGUoZiwgJysgaXNvMmMnKSwgZGF0YT1kYXRvc19tb2RlbCkpDQpgYGANCg0KIyMjIE1vZGVsbyBSYW5kb20gRWZmZWN0cw0KDQpgYGB7cn0NCnByaW50KGYpDQpzdW1tYXJ5KG1vZGVsX3JlKQ0KYGBgDQoNCiMjIyBIYXVzbWFuIFRlc3QNCg0KYGBge3J9DQpwcmludChmKQ0KcGh0ZXN0KG1vZGVsX2ZlLCBtb2RlbF9yZSkNCmBgYA0KDQojIEd1YXJkYXIgRGF0YQ0KYGBge3J9DQpzYXZlKGYsIGRlbGV0ZV9jLCBmaXJzdF95LCBsYXN0X3ksIG15X3Bsb3QsIG1vZGVsX29scywgbW9kZWxfZmUsIG1vZGVsX3JlLCBmaWxlID0gIkhJRF9PREFQQ0dPVkdPT0RfR0RQUENfR09WX0dST1cuUkRhdGEiKQ0KYGBgDQoNCg0KIyBDYXJnYXIgRGF0YQ0KYGBge3J9DQpsb2FkKCJIRElfT0RBUENfR0RQUENfR1JPV19HT1ZfT0RBUEMyLlJEYXRhIikNCmxvYWQoIkhESV9PREFMT0dfR0RQUENfR1JPV19HT1YuUkRhdGEiKQ0KbG9hZCgiR0RQUENfT0RBUENfR1JPV19HT1YuUkRhdGEiKQ0KbG9hZCgiUE9WX09EQVBDX0dEUFBDX0dPVl9PREFQQzIuUkRhdGEiKQ0KbG9hZCgiSElEX09EQVBDR09WR09PRF9HRFBQQ19HT1ZfR1JPVy5SRGF0YSIpDQpsb2FkKCJISURfT0RBUENQT0xHT09EX0dEUFBDX0dPVl9HUk9XLlJEYXRhIikNCmxvYWQoIlBPVl9PREFQQ0dPT0RfR0RQUENfR09WX0dST1cuUkRhdGEiKQ0KYGBgDQoNCg==